home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 12 / CU Amiga Magazine's Super CD-ROM 12 (1997)(EMAP Images)(GB)[!][issue 1997-07].iso / InitCD < prev    next >
Text File  |  1997-05-23  |  3KB  |  106 lines
  1. ; CUCD Init Script
  2. ;
  3. ; Set up assigns etc. both for users booting from the CD and from  HD
  4. ;
  5. ; Version 1.1 - Changed jpegtmp
  6. ;
  7. ; Version 1.2 - Added uninit option
  8. ;
  9.  
  10. if CDBoot EQ TRUE
  11.     C:NoReset
  12.     endif
  13.  
  14. If $CDInit EQ TRUE
  15.     If $CDBoot EQ TRUE          ; don't run UninitCD if booted from CD
  16.         echo "*NYou do not need to run InitCD when you have booted from the CD"
  17.         Quit
  18.         EndIf
  19.     set remass `RequestChoice "InitCD" "You have already run InitCD once.*NDo you wish to remove the assigns and paths added before?" "Remove|Cancel"`
  20.     If $remass EQ 1
  21.         execute UnInitCD
  22.         EndIf
  23.     Quit
  24.     EndIf
  25.  
  26. Assign CUCD: :
  27.  
  28. ; Set these assigns and paths only if not booting from CD
  29. IF $CDBoot NOT EQ TRUE
  30.     Run >NIL: RequestChoice "InitCD" "Setting up some assigns and paths to run software from the CD.*NIf you wish to remove the CD from the drive, run InitCD again,*Notherwise the icon will stay on the Workbench." " OK "
  31.     SetEnv CDInit TRUE
  32.     Assign Fonts: CUCD:Fonts ADD
  33.  
  34. ;   Assign ENV:   CUCD:prefs/env-archive ADD
  35.     If NOT EXISTS ENV:Ider.prefs
  36.         Copy cucd12:Prefs/Env-Archive/IDer.prefs ENV:
  37.     EndIf
  38.  
  39.     Assign Libs:  CUCD:Libs ADD
  40.     Assign L:     CUCD:L ADD
  41.     Assign S:     CUCD:S ADD
  42.     Path CUCD:C CUCD:System CUCD:System/CDsupport CUCD:Utilities CUCD:S CUCD:Rexxc ADD
  43. EndIF
  44.  
  45. ; Check that libraries on boot drive are up to date
  46. Execute :S/UpdateLibrary rexxdossupport.library 3 5
  47. Execute :S/UpdateLibrary rexxreqtools.library  37 95
  48. Execute :S/UpdateLibrary cando.library 3 8
  49.  
  50. ; Set some system assigns
  51. Assign CLASSES:            CUCD:Classes ADD
  52. Assign WWW:                CUCD:WWW
  53. Assign tcpdldir:           WWW:
  54. Assign HTTPJ:              WWW:http
  55. Assign VMEM:               T:                           ; For SuperView
  56. Assign GM:                 CUCD:System/CDsupport/GMPlay
  57. Assign News:               CUCD:CUCD/Online/News
  58.  
  59. ;BEGIN JPEG Codec
  60. Assign JPEGTMP: EXISTS >NIL:
  61. IF WARN
  62.     Assign JPEGTMP: "T:"
  63.     EndIf
  64. ;END JPEG Codec
  65.  
  66. ; Add paths
  67. Path GM: ADD
  68.  
  69. ; Set path to Delitracker Config.
  70. SetENV DeliConfig "CUCD:System/DeliTracker/DeliConfig"
  71.  
  72. ; Add MUI if no MUI installed.
  73. Assign MUI: EXISTS >NIL:
  74. IF WARN
  75.     Assign MUI:    CUCD:System/MUI
  76.     Assign Libs:   MUI:Libs ADD
  77.     Assign LOCALE: MUI:Locale ADD
  78.     Assign HELP:   MUI:Docs ADD
  79.     EndIf
  80.  
  81.  
  82. ; start arexx
  83. SYS:System/RexxMast >NIL:
  84.  
  85. Run > NIL: CUCD:C/CenterTitles
  86.  
  87. ;BEGIN NewIcons
  88. Status >NIL: com=C:NewIcons
  89. If WARN
  90.     Run <NIL: >NIL: CUCD:C/NewIcons
  91.     CUCD:C/DefIcons
  92.     EndIf
  93. ;END NewIcons
  94.  
  95. ;BEGIN ClassAct
  96. CUCD:C/CAPrefs >NIL:
  97. ;END ClassAct
  98.  
  99. ; Set assigns and paths for programs on this CD
  100. :rexxc/rx :C/MakeAssigns
  101.  
  102. IF $CDBoot NOT EQ TRUE
  103.     LoadWB NEWPATH
  104. EndIf
  105.  
  106.